DynamicModule[{pts = {{0, 0}, {1, 1}, {2, 0}, {3, 2}}},
LocatorPane[Dynamic[pts],
Dynamic[
Plot[InterpolatingPolynomial[pts, x], {x, 0, 3}, PlotRange -> 3]]]